Option Explicit
Sub A_Sample058()
    Dim myWb  As Workbook
    Dim i As Long
    i = 1				'w
    'ǳƨ즹
    Set myWb = Workbooks(i)
    MsgBox myWb.Name
    Set myWb = Nothing	'
End Sub
